
;;######################################################################
;; ViSta Plugin for Item-Test Analysis.
;;######################################################################

;(require "vista")

;STEP 1: DEFINE THE SEVEN LOCAL VARIABLES 
;        USED TO PREPARE THE PLUGIN ENVIRONMENT

(let ((plugin-subdirectory "EFA")
      (plugin-file          "efamain.lsp")
      (menu-item            "Factor-Analysis")
      (toolbar-button       "EFA")
      (workmap-icon         "EFA")
      (ok-data-types     '("multivariate"))
      (ok-variable-types '(numeric)))
    (send *vista* :prepare-plugin-environment
        plugin-subdirectory
        plugin-file 
        menu-item
        toolbar-button
        workmap-icon 
        ok-data-types 
        ok-variable-types))


  ;; PLUGIN STEP 2: PLUGIN LOADER FUNCTION
  
(defun Factor-Analysis
  (&key
   (data *current-data*)    ; universal plugin keyword
   (dialog nil)             ; universal plugin keyword
   )
  
     (format t "; CopyRt: FACTOR ANALYSIS PLUG-IN, 2008 by Rubén Ledesma~%> ")

  (load *efa-plugin-constructor-file*)

  (Factor-Analysis
   :data data
   :dialog dialog
   )
  )


